﻿变量 线程ID
//从这里开始执行
//启动_热键操作

//终止热键操作
功能 终止_热键()
    线程关闭(线程ID)
结束

var 平台进程句柄
var 先手,后手

function runConfort(eneName,isFirst,platPath="军棋博弈平台20141008.exe")
    var picPath=文件读配置("config","picPath",strcat(系统获取工作路径(),"initialize.ini"))
    if(isFirst==true)
        先手=文件读配置("path","self",strcat(系统获取工作路径(),"initialize.ini"))
        后手=文件读配置("path",eneName,strcat(系统获取工作路径(),"initialize.ini"))	
    else
        后手=文件读配置("path","self",strcat(系统获取工作路径(),"initialize.ini"))
        先手=文件读配置("path",eneName,strcat(系统获取工作路径(),"initialize.ini"))
    end
    
    平台进程句柄=进程打开(platPath)
    
    变量 窗口句柄=窗口查找("军棋博弈平台")
    窗口置顶(窗口句柄)
    变量 x,y
    sleep(1500)
    变量 ret=找图(0,0,1100,1000,strcat(picPath,"游戏设置.bmp"),"203040",0.5,0,x,y)
    鼠标移动(x,y)//游戏设置
    鼠标左键单击()
    sleep(500)
    ret=找图(0,0,1100,1000,strcat(picPath,"玩家设置.bmp"),"203040",0.5,0,x,y)
    鼠标移动(x,y)//玩家设置
    鼠标左键单击()
    sleep(500)
    ret=找图(0,0,1100,1000,strcat(picPath,"先手设置AI.bmp"),"203040",0.5,0,x,y)
    鼠标移动(x+10,y+10)//先手设置,点开AI
    鼠标左键单击()
    sleep(500)
    鼠标移动(x,y+100)//先手点击文件位置的白框
    鼠标左键单击()//由于找不到浏览的图,所以基于先手AI设置的相对坐标进行平移
    sleep(500)
    键盘发送字符串(先手)
    ret=找图(0,0,1100,1000,strcat(picPath,"先手设置AI.bmp"),"203040",0.5,0,x,y)//此时先手AI已经被选中,与图库图片不一样
    鼠标移动(x+10,y+10)//后手设置,点开AI
    鼠标左键单击()
    sleep(500)
    鼠标移动(x,y+100)//后手点击浏览
    鼠标左键单击()//由于找不到浏览的图,所以基于后手AI设置的相对坐标进行平移
    键盘发送字符串(后手)
    sleep(500)
    鼠标移动(x+140,y+195)
    鼠标左键单击()
    sleep(500)
    ret=找图(0,0,1100,1000,strcat(picPath,"游戏设置.bmp"),"203040",0.5,0,x,y)//游戏设置左侧就是游戏开始
    鼠标移动(x-30,y)//点击游戏
    鼠标左键单击()
    鼠标移动(x-30,y+25)//游戏开始
    鼠标左键单击()
    waitFinish(isFirst,eneName)
end

function waitFinish(isFirst,eneName,logPath="GameMsg.log",usLogPath="鐗圭鍏电殑鏃ヨ.txt")
    while(文件是否存在(logPath)==false)
        sleep(1000)
    end
    进程关闭(平台进程句柄)
    进程关闭(进程获取句柄(先手))
    进程关闭(进程获取句柄(后手))
    
    //读取胜负
    var i = 文件获取行数(logPath)
    var 胜负字符
    for(1; 1; i--)
        胜负字符=文件读指定行(logPath,i)
        if(字符串查找(胜负字符,"手")!=-1)
            break
        end
    end
    
    var winIsFirst
    var needAdd=false
    var addChar
    messagebox(胜负字符,"日志内容")
    if(字符串查找(胜负字符,"胜利")!=-1) //胜负明确情况
        if(字符串查找(胜负字符,"后手")!=-1)
            winIsFirst=false
        else
            winIsFirst=true
        end
    else //崩溃和磨棋
        needAdd=true //需在日记添加
        if(字符串查找(胜负字符,"后手")!=-1) //找到谁谁输
            winIsFirst=true
        else
            winIsFirst=false
        end
    end
    
    if(isFirst==winIsFirst)
        messagebox(strcat("赢 ",eneName),"对局结果")
        addChar="1"
    else
        messagebox(strcat("输 ",eneName),"对局结果")
        addChar="0"
    end
    
    if(isFirst==true)
        文件写配置("先手",eneName,addChar,strcat(系统获取工作路径(),"胜负统计结果.ini"))
    else
        文件写配置("后手",eneName,addChar,strcat(系统获取工作路径(),"胜负统计结果.ini"))
    end
    
    if(needAdd==true)
        文件追加文本(usLogPath,addChar)
    end
    
    //全部结束
    filedelete(logPath)
    var newname=strcat(eneName,"-")
    newname=strcat(newname,addChar)
    newname=strcat(newname,"-")
    if(isFirst==true)
        newname=strcat(newname,"先手.txt")
    else
        newname=strcat(newname,"后手.txt")
    end
    filerename(strcat(系统获取工作路径(),usLogPath),strcat(系统获取工作路径(),newname))
end


功能 按钮0_点击()
    runConfort("bluesky1",复选框获取状态("我方先手"))
结束


功能 按钮1_点击()
    runConfort("bluesky2",复选框获取状态("我方先手"))
结束


功能 按钮2_点击()
    runConfort("bluesky3",复选框获取状态("我方先手"))
结束


功能 按钮3_点击()
    runConfort("bluesky4",复选框获取状态("我方先手"))
结束


功能 按钮4_点击()
    runConfort("bluesky5",复选框获取状态("我方先手"))
结束


功能 校赛_点击()
    runConfort("校赛",复选框获取状态("我方先手"))
结束


功能 紫川三姐_点击()
    runConfort("紫川三姐",复选框获取状态("我方先手"))
结束


功能 剑指苍穹_点击()
    runConfort("剑指苍穹",复选框获取状态("我方先手"))
结束


功能 三峡chess_点击()
    runConfort("三峡chess",复选框获取状态("我方先手"))
结束


功能 三峡GTGU_点击()
    runConfort("三峡GTGU",复选框获取状态("我方先手"))
结束


功能 拱卒_点击()
    runConfort("拱卒",复选框获取状态("我方先手"))
结束


功能 省赛chess_点击()
    runConfort("省赛chess",复选框获取状态("我方先手"))
结束


功能 先手_点击()
    runConfort("重庆理工先手",复选框获取状态("我方先手"))
结束


功能 后手_点击()
    runConfort("重庆理工后手",复选框获取状态("我方先手"))
结束


功能 按钮5_点击()
    waitFinish(true,"aaa")
结束
